10 REM: C-64 BIG LETTER MESSAGER
20 REM: WRITTEN BY JIM BERNARD
30 FORX=28656TO28883:READA:POKEX,A:CK=CK+A:NEXT
35 FORX=49152TO49231:READA:POKEX,A:CK=CK+A:NEXT
40 IFCK<>35750THENPRINT"DATA ERROR":END
45 PRINTCHR$(147)
60 POKE52,48:POKE56,48:POKE56334,PEEK(56334)AND254:POKE1,PEEK(1)AND251
70 FORI=0TO511:POKEI+10000,PEEK(I+53248):NEXT
80 POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
90 SYS28672
100 GOSUB1000:POKE53272,28:POKE53270,207
105 SYS49152
110 LW=1502:LY=1503:LX=1542:LZ=1543
120 CL=55774:CY=55775:CX=55814:CZ=55815
140 R=8:Q=PEEK(M):M=M+1:IFQ>95THENM=50001:GOTO140
150 IFQ>63THENQ=Q-64
160 W=Q*2:X=Q*2+1:Y=Q*2+128:Z=Q*2+129
165 IFT>1THEN180
170 IFPEEK(253)=>NN+2THEN180
172 IFPEEK(253)<NNTHENNN=-2
175 GOTO170
180 POKELW,W:POKELY,Y:POKELX,X:POKELZ,Z
190 POKECL,R:POKECY,R:POKECX,R:POKECZ,R
195 POKE781,0:POKE780,0:POKE782,0:SYS65499
196 NN=PEEK(253):GOTO140
200 REM - MACHINE LANGUAGE DATA
205 DATA 24,173,3,112,105,8,141,3,112,201,0,208,3,238,4,112
210 DATA 162,0,189,16,39,72,74,74,74,74,168,185,155,112,157,0,48,157,1,48,104
215 DATA 41,15,168,185,155,112,157,0,52,157,1,52,232,238,15,112,238,18,112,238
220 DATA 28,112,238,31,112,224,8,208,208,24,173,15,112,105,8,141,15,112,24,173
230 DATA 18,112,105,8,141,18,112,24,173,28,112,105,8,141,28,112,24,173,31,112
240 DATA 105,8,141,31,112,201,1,208,12,238,16,112,238,19,112,238,29,112,238,32
250 DATA 112,173,32,112,201,56,240,3,76,240,111,169,0,141,15,112,141,28,112,169
260 DATA 1,141,18,112,141,31,112,169,48,141,16,112,141,19,112,169,52,141
270 DATA 29,112,141,32,112,169,16,141,3,112,169,39,141,4,112,96,0,3,12,15,48
280 DATA 51,60,63,192,195,204,207,240,243,252,255,0,162,0,160,1,185,112,7,157
290 DATA 112,7,185,152,7,157,152,7,185,112,219,157,112,219,185,152,219,157,152
300 DATA 219,232,200,192,40,208,226,169,7,141,22,208,96
310 DATA 120,169,17,141,20,3,169,192,141,21,3,88,169,8,133,251,96,166,251,202
320 DATA 142,22,208,224,255,240,5,134,251,76,49,234,169,7,133,251,162,0,160,1
330 DATA 185,184,5,157,184,5,185,224,5,157,224,5,185,184,217,157,184,217,185
340 DATA 224,217,157,224,217,232,200,192,40,208,226,169,7,141,22,208,230,253
350 DATA 76,49,234
1000 REM: COLLECT UP TO 3200 CHARACTERS FOR DISPLAY
1005 PRINT:PRINT"INSTRUCTIONS - ENTER UP TO 2 FULL LINES AT EACH '?' PROMPT, ";
1010 PRINT"THEN PRESS 'RETURN'.":PRINT"ENTER '*' AT A PROMPT WHEN FINISHED."
1020 PRINT:PRINT"THERE WILL BE UP TO 40 PROMPTS BY WHICH TO ENTER TEXT.":PRINT
1025 DIMM$(40):M=50001:FORX=1TO40
1030 INPUTM$(X):IFM$(X)="*"THENGOTO1055
1040 IFM$(X)=""THEN1030
1045 FORY=1TOLEN(M$(X)):AS=ASC(MID$(M$(X),Y,1))
1046 IFAS<32ORAS>95THENNEXT
1047 IFAS=64THENAS=0
1048 IFAS>90ANDAS<96THENAS=AS-64
1049 POKEM,AS:M=M+1:NEXT
1050 POKEM,32:M=M+1:NEXT
1055 PRINT:PRINT"MESSAGE IN MEMORY WITH";:ZN=M-50000
1060 PRINTZN;"CHARACTERS."
1065 FORX=1TO3:POKEM,46:M=M+1:NEXT:POKEM,32:M=M+1:POKEM,96
1070 PRINT:PRINT"PRESS 'SHIFT' TO BEGIN"
1080 WAIT 653,1,0
1090 POKE53280,0:POKE53281,0
1095 PRINTCHR$(147)
1099 M=50001:RETURN